Cine Live 72/Cine Live 72.iso/pc/Data/Interface/f36.k

Text File | 2003-09-04 | 4.2 KB | 231 lines

module oRoot1 is cBox
with
    Flags is $00000142;
    release Editor:
        IOWindow is {$000000E1,$0000002E,$00000267,$000002CC,$00000000,$00000000,$00000000,$00000000};
        LayoutWindow is {$000000A9,$00000047,$0000028F,$000001EF,$00000000,$00000000,$00000064,$00000000};
    end;
    Name is "Root";
    Enabled is false;

    Width is 800; Height is 600;


    Elements is [
        oMusic2,
        ofond3,
        oScroller4,
        ofilmo_imp6,
        ofilmo_retour7,
        ofilmo_somm8,
        ortf9
    ];
    Events is [
        cOnscreenEvent
        with
            Commands is [
                cRunCommand
                with Flags is $00000004; Target is oMusic2; Rewind is true; end
            ];
        end,
        cKeyboardEvent
        with Value is "+";
            Commands is [
                cSetVolumeCommand
                with Flags is $00000004; Mode is ExecuteHigher; end
            ];
        end,
        cKeyboardEvent
        with Value is "-";
            Commands is [
                cSetVolumeCommand
                with Mode is ExecuteLower; end
            ];
        end,
        cKeyboardEvent
        with Flags is $00000004; Value is "m";
            Commands is [
                cRunCommand
                with Flags is $00000004; Target is oMusic2; Mode is Toggle; Rewind is true; end
            ];
        end
    ];
end;

object oMusic2 is cSound
with
    Flags is $00000150;
    Name is "Music";

    AdjustX is AlignToCenter; AdjustY is AlignToMiddle;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;
    Looping is true;
    URL is "../Sons/1.mp3";

end;

object ofond3 is cImage
with
    Name is "fond";
    Enabled is false;
    AdjustX is AlignToCenter; AdjustY is AlignToMiddle;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/36.jpg";


end;

object oScroller4 is cScroller
with
    Name is "Scroller";
    Clipping is true; Cursor is oFingerCursor;
    X is 510; Y is 104;
    Width is 256; Height is 438;

    Vertical is oVertical_Macintosh_Color_ScrollBar;
    Elements is [
        oimage_biographie5
    ];
    Events is [
        cMouseMovedEvent
        with
            Commands is [
                cScrollCommand
                with Target is oTargetSelf; end
            ];
        end
    ];
end;

object oimage_biographie5 is cImage
with
    Name is "image biographie";

    X is 149;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/n36.jpg";


end;

object ofilmo_imp6 is cImage
with
    Name is "filmo imp";
    Shown is false; Cursor is oFingerCursor;
    X is 475; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/actor%20imprim.jpg";


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cPrintCommand
                with Target is ortf9; end
            ];
        end
    ];
end;

object ofilmo_retour7 is cImage
with
    Name is "filmo retour";
    Shown is false; Cursor is oFingerCursor;
    X is 321; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/actor%20retour.jpg";


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cRunCommand
                with Target is oMusic2; Mode is Clear; Rewind is true; end,
                cBackCommand
                with end
            ];
        end
    ];
end;

object ofilmo_somm8 is cImage
with
    Name is "filmo somm";
    Shown is false; Cursor is oFingerCursor;
    X is 629; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "../Images/actor%20somm.jpg";


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cBrowseCommand
                with URL is "sommaire.k"; end
            ];
        end
    ];
end;

object ortf9 is cRTFText
with
    Flags is $00000154;
    Name is "rtf";
    Enabled is false; Shown is false;
    AdjustX is AlignToLeft; AdjustY is AlignToTop;
    AdjustWidth is GetLayoutWidth; AdjustHeight is GetDataHeight;

    URL is "../Textes/36.rtf";

    Antialiased is true;
end;